﻿Public Class mastypep
    Private typeID = Nothing
    Private typDESC = Nothing
    Private typStatus = Nothing
    Private selectMastypep = "SELECT `typep` as 'รหัสประเภท',`typdesc` as 'ประเภทผู้ป่วย', `status` as 'สถานะการเปิดใช้งาน' FROM mastypep"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property typeID_ As Integer
        Get
            Return typeID
        End Get
        Set(value As Integer)
            typeID = value
        End Set
    End Property

    Property typDESC_ As String
        Get
            Return typDESC
        End Get
        Set(value As String)
            typDESC = value
        End Set
    End Property

    Property typStatus_ As Boolean
        Get
            Return typStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                typStatus = 1
            Else
                typStatus = 0
            End If
        End Set
    End Property

    Property selectMastypep_ As String
        Get
            Return selectMastypep
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMastypepData()
        If typDESC <> "" Then
            If TypeOf typDESC Is String Then
                If connect.GetTable("SELECT typdesc FROM mastypep WHERE typdesc = '" & typDESC & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลประเภทผู้ป่วยนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim typepID As Integer

                        typepID = connect.ExecuteScalar("INSERT INTO mastypep (typdesc, status) VALUES ('" & typDESC & "', '" & typStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASTYPEP (PERSONTYPE, PERSONDESC, STATUS) VALUES ('" & typepID & "', '" & typDESC & "', '" & typStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูล Discharge เรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสประเภทผู้ป่วยนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMastypepData()
        If typeID > 0 And typDESC <> "" Then
            Dim connect As CONDB = CONDB.NewConnection()
            If TypeOf typDESC Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE mastypep SET typdesc = '" & typDESC & "', status = '" & typStatus & "' WHERE typep = '" & typeID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASTYPEP SET PERSONDESC = '" & typDESC & "', STATUS = '" & typStatus & "' WHERE PERSONTYPE = '" & typeID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลประเภทผู้ป่วยเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสประเภทผู้ป่วยนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

End Class
